object Form1: TForm1 Left = 196 Top = 117 HelpContext = 1 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Heart Smart' ClientHeight = 426 ClientWidth = 632 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Icon.Data = {} Menu = MainMenu1 Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object groupbox2: TPanel Left = 8 Top = 0 Width = 330 Height = 29 ParentShowHint = False ShowHint = True TabOrder = 0 object SpeedButton1: TSpeedButton Left = 127 Top = 2 Width = 25 Height = 25 Hint = 'Clear Menu' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555 555557777F777555F55500000000555055557777777755F75555005500055055 555577F5777F57555555005550055555555577FF577F5FF55555500550050055 5555577FF77577FF555555005050110555555577F757777FF555555505099910 555555FF75777777FF555005550999910555577F5F77777775F5500505509990 3055577F75F77777575F55005055090B030555775755777575755555555550B0 B03055555F555757575755550555550B0B335555755555757555555555555550 BBB35555F55555575F555550555555550BBB55575555555575F5555555555555 50BB555555555555575F555555555555550B55555555555555750000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = ClearMenu1Click end object SpeedButton5: TSpeedButton Left = 252 Top = 2 Width = 25 Height = 25 Hint = 'Order Form' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555775777777 57705557757777775FF7555555555555000755555555555F777F555555555550 87075555555555F7577F5555555555088805555555555F755F75555555555033 805555555555F755F75555555555033B05555555555F755F75555555555033B0 5555555555F755F75555555555033B05555555555F755F75555555555033B055 55555555F755F75555555555033B05555555555F755F75555555555033B05555 555555F75FF75555555555030B05555555555F7F7F75555555555000B0555555 5555F777F7555555555501900555555555557777755555555555099055555555 55557777555555555555500555555555555557755555555555550000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton5Click end object SpeedButton6: TSpeedButton Left = 277 Top = 2 Width = 25 Height = 25 Hint = 'Register' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555 055555555555FF5575F555555550055030555555555775F7F7F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0 305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000 30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550 3055577777555557F7F5550005555559995555777555555777550000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = Register1Click end object SpeedButton7: TSpeedButton Left = 152 Top = 2 Width = 25 Height = 25 Hint = 'Print Menu' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0777777777777770888888888888888F077777777777 7770888888888888888F0000000000000000FFFFFFFFFFFFFFFF0F7F7F7F7F7F 7F70888888888888888F07F7F7F7F7F7F9F0888888888888888F0F7F7F7F7F7F 7F708888888888888F8F0000000000000000888888888888888F3330BBBBBBBB 03333338F3FFFF3F8F333330B0000B0B03333338F88883838F333330BBBBBBBB 03333338F3FF3FFF8F333330B00B000003333338F883888883333330BBBB0FF0 33333338F3FF8F3833333330B07B0F0333333338F8838F8333333330BBBB0033 33333338FFFF8833333333300000033333333338888883333333000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = PrintMenu1Click end object SpeedButton8: TSpeedButton Left = 177 Top = 2 Width = 25 Height = 25 Hint = 'Print Shopping List' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0777777777777770888888888888888F077777777777 7770888888888888888F0000000000000000FFFFFFFFFFFFFFFF0F7F7F7F7F7F 7F70888888888888888F07F7F7F7F7F7F9F0888888888888888F0F7F7F7F7F7F 7F708888888888888F8F0000000000000000888888888888888F3330DDDDDDDD 03333338F3FFFF3F8F333330D0000D0D03333338F88883838F333330DDDDDDDD 03333338F3FF3FFF8F333330D00D000003333338F883888883333330DDDD0FF0 33333338F3FF8F3833333330D07D0F0333333338F8838F8333333330DDDD0033 33333338FFFF8833333333300000033333333338888883333333000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = PrintShopingList1Click end object SpeedButton11: TSpeedButton Left = 202 Top = 2 Width = 25 Height = 25 Hint = 'Add Food Item' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000 00000FFFFFFFFFFFFFF00FFF0F0FFFFFFFF000000FF0000FFFF00FFFFFFFFFFF FFF00FF0000000FF00F00000F00FFFFFFFF00FFFFFFFFF99FFF000000000FF99 F0000FFFFFFF999999F00FFFFFFF999999F00F00000FFF99FFF00F0FFF000F99 F000000FFFFFFFFFFFF00FFFFFFFFFFFFFF00000000000000000} ParentShowHint = False ShowHint = True OnClick = Add1Click end object SpeedButton12: TSpeedButton Left = 227 Top = 2 Width = 25 Height = 25 Hint = 'Delete Food Item' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000 00000FFFFFFFFFFFFFF00FFF0F0FFFFFFFF000000FF0000FFFF00FFFFFFFFFFF FFF00FF0000000FF00F00000F00FFFFFFFF00FFFFFFFFF0FFFF000000000F00F F0000FFFFFFF999999F00FFFFFFF999999F00F00000FFFFFFFF00F0FFF000F0F F000000FFFFFFFFFFFF00FFFFFFFFFFFFFF00000000000000000} ParentShowHint = False ShowHint = True OnClick = Delete1Click end object SpeedButton13: TSpeedButton Left = 102 Top = 2 Width = 25 Height = 25 Hint = 'Load Menu' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300787000333 333330078700033333333000000003333333300000000000000030FFFFFF0F8F FFF030FFFFFF0FF8F8F030CCCCCC080F0FF0333930F9FF08FFF0333930F99FF0 0FF03339999999FF78F033399999999F8FF0333399999987F000333330F99F8F 0033333330F9F8FF033333333000000033333333333333333333} ParentShowHint = False ShowHint = True OnClick = loadmealClick end object SpeedButton2: TSpeedButton Left = 302 Top = 2 Width = 25 Height = 25 Hint = 'Exit Program' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301111111110333337F333333337F33330111111111 0333337F333333337F333301111111110333337F333333337F33330111111111 0333337F333333337F333301111111110333337F333333337F33330111111111 0333337F3333333F7F333301111111B10333337F333333737F33330111111111 0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11 0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11 0333337F377777337F333301111111110333337F333333337F33330111111111 0333337FFFFFFFFF7F33330000000000033333777777777773330000} NumGlyphs = 2 OnClick = closeClick end object SpeedButton14: TSpeedButton Left = 2 Top = 2 Width = 25 Height = 25 Hint = 'Copy Meal' Glyph.Data = { 9E050000424D9E05000000000000360400002800000014000000120000000100 0800000000000000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8 A400000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707 0707070707070707070707070707070707070000070707070707070707070700 000707070700FF000707070707070707070700FF0007070700FFFF0007070707 070707070700FFFB00070700FFFFFF00070707070707070700FFFBFF00070700 FF00FF00070707070707070700FB00FB0007070000FFFF000707070700070707 0000FBFF00070700FFFFFF00070707070000070700FBFFFB000707000000FF00 0700000000000007000000FF00070700FFFFFF00070000000000000700FBFFFB 000707000000FF000707070700000707000000FF00070700FFFFFF0007070707 0007070700FBFFFB0007070000FFFF0007070707070707070000FBFF00070700 FF04FF00070707070707070700FF00FB0007070700FFFF000707070707070707 0700FBFF000707070700FF000707070707070707070700FB0007070707070000 0707070707070707070707000007070707070707070707070707070707070707 0707} OnClick = copymealClick end object SpeedButton15: TSpeedButton Left = 27 Top = 2 Width = 25 Height = 25 Hint = 'Paste Meal' Glyph.Data = { C6050000424DC605000000000000360400002800000014000000140000000100 0800000000000000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8 A400000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707 0707070707070707070707070707070707070707070707070700000000000000 0007070707070707070707070700FBFFFBFFFBFF000707070000000000000000 0000FFFBFFFBFFFB0007070007FF07FF07FF07FF0700FBFFFBFFFBFF00070700 FF07FF07FF07FF07FF00FFFBFFFBFFFB0007070007FF07FF07FF07FF0700FBFF FBFFFBFF00070700FF07FF07FF07FF07FF00FFFBFFFBFFFB0007070007FF07FF 000000000700FBFFFBFFFBFF00070700FF07FF07FF000000FF00FFFBFFFB0000 0007070007FF07FF000000000700FBFFFBFF000007070700FF07FF000000FF00 FF000000000000070707070007FF000000FF07FF07FF00070707070707070700 FF07FF00FF07FF07FF070007070707070707070007FF07FF07FF07FF07FF0007 0707070707070700FF07000000000000FF0700070707070707070707000000FC FEFCFE00000007070707070707070707070700FEFCFEFC000707070707070707 0707070707070700000000070707070707070707070707070707070707070707 07070707070707070707} OnClick = pastemealClick end object SpeedButton16: TSpeedButton Left = 52 Top = 2 Width = 25 Height = 25 Hint = 'Clear Meal' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF005FFFFFFFFF00 0F5558888F888555F5550FFFFFFFFFFFFF558888888855F855550FFFFFFFFFFF FF5588F5888F585555550FFFFFFFFFFFFF5588FF588F5FF555555F0000FF00FF FF55588FF88588FF55555FFFFFF0110FFF555588F858888FF5555FF0FF099910 FF5555FF85888888FF555F0FFF0999910F55588F5F88888885F55FF00FF09990 3055588F85F88888585F50FFFFFF090B03055588585588858585500F0F0FF0B0 B03055555F55585858585FFFFFFFFF0B0B3355558555558585555000F0F0FFF0 BBB35555F55555585F555FFFFFFFFFFF0BBB55585555555585F5555555555555 50BB555555555555585F555555555555550B5555555555555585000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = Clear1Click end object SpeedButton17: TSpeedButton Left = 77 Top = 2 Width = 25 Height = 25 Hint = 'Save Menu' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070 7700333333337777777733333333008088003333333377F73377333333330088 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 OnClick = SavemenuClick end end object PageControl1: TPageControl Left = 4 Top = 32 Width = 626 Height = 390 ActivePage = TabSheet1 Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 OnChange = PageControl1Change object TabSheet1: TTabSheet HelpContext = 1 Caption = 'Menu Planner' object Label1: TLabel Left = 13 Top = 2 Width = 65 Height = 16 Caption = 'Food Items' end object Image2: TImage Left = 239 Top = 256 Width = 50 Height = 50 DragMode = dmAutomatic OnDragDrop = Image1DragDrop OnDragOver = Image1DragOver OnEndDrag = Image1EndDrag end object Image1: TImage Left = 239 Top = 256 Width = 50 Height = 50 Hint = 'Trash Can' DragMode = dmAutomatic ParentShowHint = False ShowHint = True OnDragDrop = Image1DragDrop OnDragOver = Image1DragOver OnEndDrag = Image1EndDrag end object ListBox1: TListBox Left = 4 Top = 16 Width = 217 Height = 210 DragMode = dmAutomatic ExtendedSelect = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemHeight = 14 ParentFont = False Sorted = True TabOrder = 0 OnClick = ListBox1Click OnDblClick = Modify1Click OnEndDrag = ListBox1EndDrag OnKeyPress = ListBox1KeyPress end object TabbedNotebook1: TTabbedNotebook Left = 232 Top = 4 Width = 382 Height = 221 TabsPerRow = 4 TabFont.Color = clBtnText TabFont.Height = -11 TabFont.Name = 'Arial' TabFont.Style = [] TabOrder = 1 TabStop = False OnChange = TabbedNotebook1Change object TTabPage Left = 4 Top = 27 Caption = 'Sunday' end object TTabPage Left = 4 Top = 27 Caption = 'Monday' end object TTabPage Left = 4 Top = 27 Caption = 'Tuesday' end object TTabPage Left = 4 Top = 27 Caption = 'Wednesday' end object TTabPage Left = 4 Top = 27 Caption = 'Thursday' end object TTabPage Left = 4 Top = 27 Caption = 'Friday' end object TTabPage Left = 4 Top = 27 Caption = 'Saturday' end end object TabSet2: TTabSet Left = 299 Top = 340 Width = 185 Height = 21 DitherBackground = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Tabs.Strings = ( 'Meal' 'Day' 'Week' 'Avg. Day') TabIndex = 0 OnChange = TabSet2Change end object GroupBox1: TGroupBox Left = 298 Top = 250 Width = 311 Height = 92 Caption = 'Menu Values' TabOrder = 3 object PaintBox2: TPaintBox Left = 236 Top = 15 Width = 69 Height = 69 OnPaint = PaintBox2Paint end object Label10: TLabel Left = 184 Top = 12 Width = 29 Height = 14 Caption = 'Carbo' Font.Color = clLime Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label11: TLabel Left = 184 Top = 36 Width = 33 Height = 14 Caption = 'Protein' Font.Color = clAqua Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label12: TLabel Left = 184 Top = 60 Width = 15 Height = 14 Caption = 'Fat' Font.Color = clYellow Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object mvcarbopercent: TLabel Left = 214 Top = 24 Width = 22 Height = 14 Alignment = taRightJustify Caption = '00%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object mvproteinpercent: TLabel Left = 214 Top = 48 Width = 22 Height = 14 Alignment = taRightJustify Caption = '00%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object mvfatpercent: TLabel Left = 214 Top = 72 Width = 22 Height = 14 Alignment = taRightJustify Caption = '00%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Panel1: TPanel Left = 4 Top = 16 Width = 177 Height = 65 TabOrder = 0 object mvcal: TLabel Left = 68 Top = 6 Width = 21 Height = 14 Alignment = taRightJustify Caption = 'XXX' Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label7: TLabel Left = 8 Top = 7 Width = 39 Height = 14 Caption = 'Calories' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 8 Top = 22 Width = 29 Height = 14 Caption = 'Carbo' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label9: TLabel Left = 8 Top = 37 Width = 33 Height = 14 Caption = 'Protein' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label26: TLabel Left = 94 Top = 5 Width = 15 Height = 14 Caption = 'Fat' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label15: TLabel Left = 94 Top = 20 Width = 35 Height = 14 Caption = 'Sodium' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label22: TLabel Left = 94 Top = 35 Width = 21 Height = 14 Caption = 'Chol' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object mvchol: TLabel Left = 153 Top = 35 Width = 21 Height = 14 Alignment = taRightJustify Caption = 'XXX' Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object mvna: TLabel Left = 153 Top = 20 Width = 21 Height = 14 Alignment = taRightJustify Caption = 'XXX' Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object mvfat: TLabel Left = 153 Top = 4 Width = 21 Height = 14 Alignment = taRightJustify Caption = 'XXX' Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object mvpro: TLabel Left = 68 Top = 37 Width = 21 Height = 14 Alignment = taRightJustify Caption = 'XXX' Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object mvcarbo: TLabel Left = 68 Top = 21 Width = 21 Height = 12 Alignment = taRightJustify Caption = 'XXX' Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end end end object GroupBox3: TGroupBox Left = 0 Top = 232 Width = 233 Height = 121 Caption = 'Food Item' TabOrder = 4 object Label6: TLabel Left = 108 Top = 20 Width = 52 Height = 14 Caption = '# Servings' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object PaintBox1: TPaintBox Left = 160 Top = 48 Width = 69 Height = 69 OnPaint = PaintBox1Paint end object Label19: TLabel Left = 112 Top = 36 Width = 29 Height = 14 Caption = 'Carbo' Font.Color = clLime Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label20: TLabel Left = 112 Top = 60 Width = 33 Height = 14 Caption = 'Protein' Font.Color = clAqua Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label21: TLabel Left = 112 Top = 84 Width = 15 Height = 14 Caption = 'Fat' Font.Color = clYellow Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object ficarbopercent: TLabel Left = 131 Top = 48 Width = 22 Height = 14 Alignment = taRightJustify Caption = '00%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object fiproteinpercent: TLabel Left = 131 Top = 72 Width = 22 Height = 14 Alignment = taRightJustify Caption = '00%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object fifatpercent: TLabel Left = 131 Top = 96 Width = 22 Height = 14 Alignment = taRightJustify Caption = '00%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Servingcount: TEdit Left = 162 Top = 17 Width = 36 Height = 24 AutoSize = False Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 3 ParentFont = False TabOrder = 0 Text = '1' OnChange = ServingcountChange end object panel3: TPanel Left = 4 Top = 18 Width = 101 Height = 95 TabOrder = 1 object Label2: TLabel Left = 6 Top = 6 Width = 39 Height = 14 Caption = 'Calories' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 6 Top = 20 Width = 29 Height = 14 Caption = 'Carbo' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 6 Top = 34 Width = 33 Height = 14 Caption = 'Protein' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 6 Top = 48 Width = 15 Height = 14 Caption = 'Fat' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object fical: TLabel Left = 77 Top = 6 Width = 6 Height = 14 Alignment = taRightJustify Caption = '0' Color = clBtnFace Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object ficarbo: TLabel Left = 77 Top = 20 Width = 6 Height = 14 Alignment = taRightJustify Caption = '0' Color = clBtnFace Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object fipro: TLabel Left = 77 Top = 34 Width = 6 Height = 14 Alignment = taRightJustify Caption = '0' Color = clBtnFace Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Label13: TLabel Left = 6 Top = 62 Width = 35 Height = 14 Caption = 'Sodium' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label14: TLabel Left = 6 Top = 76 Width = 21 Height = 14 Caption = 'Chol' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object fifat: TLabel Left = 77 Top = 49 Width = 6 Height = 14 Alignment = taRightJustify Caption = '0' Color = clBtnFace Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object fina: TLabel Left = 77 Top = 63 Width = 6 Height = 14 Alignment = taRightJustify Caption = '0' Color = clBtnFace Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object fichol: TLabel Left = 77 Top = 77 Width = 6 Height = 14 Alignment = taRightJustify Caption = '0' Color = clBtnFace Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Label46: TLabel Left = 85 Top = 20 Width = 6 Height = 14 Caption = 'g' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label55: TLabel Left = 85 Top = 34 Width = 6 Height = 14 Caption = 'g' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label57: TLabel Left = 85 Top = 48 Width = 6 Height = 14 Caption = 'g' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label59: TLabel Left = 85 Top = 62 Width = 14 Height = 14 Caption = 'mg' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label61: TLabel Left = 85 Top = 76 Width = 14 Height = 14 Caption = 'mg' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end end object UpDown1: TUpDown Left = 198 Top = 17 Width = 12 Height = 24 Associate = Servingcount Min = 1 Position = 1 TabOrder = 2 Wrap = False end end object TabSet1: TTabSet Left = 232 Top = 223 Width = 201 Height = 25 DitherBackground = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Tabs.Strings = ( 'Breakfast' 'Lunch' 'Dinner' 'Snack') TabIndex = 0 OnChange = TabSet1Change end object TabListBox1: Ttablistbox Left = 240 Top = 34 Width = 365 Height = 183 DragMode = dmAutomatic ExtendedSelect = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemHeight = 14 ParentFont = False TabOrder = 6 OnClick = TabListBox1Click OnDragDrop = TabListBox1DragDrop OnDragOver = TabListBox1DragOver OnEndDrag = TabListBox1EndDrag TabStops = 0 end end object TabSheet2: TTabSheet HelpContext = 10 Caption = 'Recipes' object Image4: TImage Left = 231 Top = 128 Width = 50 Height = 50 DragCursor = crNoDrop Visible = False OnDragDrop = Image3DragDrop OnDragOver = Image3DragOver OnEndDrag = Image3EndDrag end object Label16: TLabel Left = 13 Top = 2 Width = 65 Height = 16 Caption = 'Food Items' end object Label25: TLabel Left = 240 Top = 216 Width = 181 Height = 16 Caption = 'Recipe Preparation Instructions' end object Label27: TLabel Left = 288 Top = 0 Width = 107 Height = 16 Caption = 'Recipe Ingredients' end object Label28: TLabel Left = 228 Top = 56 Width = 53 Height = 33 AutoSize = False Caption = 'Food Item Servings' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True end object Image3: TImage Left = 231 Top = 128 Width = 50 Height = 50 Hint = 'Trash Can' DragCursor = crNoDrop ParentShowHint = False ShowHint = True OnDragDrop = Image3DragDrop OnDragOver = Image3DragOver OnEndDrag = Image3EndDrag end object ListBox2: TListBox Left = 4 Top = 16 Width = 217 Height = 210 DragMode = dmAutomatic ExtendedSelect = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemHeight = 14 ParentFont = False Sorted = True TabOrder = 0 OnEndDrag = ListBox2EndDrag OnKeyPress = ListBox2KeyPress end object tablistbox2: Ttablistbox Left = 288 Top = 18 Width = 321 Height = 191 DragMode = dmAutomatic ExtendedSelect = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemHeight = 14 ParentFont = False TabOrder = 1 OnDragDrop = tablistbox2DragDrop OnDragOver = tablistbox2DragOver OnEndDrag = tablistbox2EndDrag TabStops = 0 end object Memo1: TMemo Left = 240 Top = 240 Width = 369 Height = 113 MaxLength = 2000 ScrollBars = ssVertical TabOrder = 2 end object GroupBox4: TGroupBox Left = 0 Top = 232 Width = 233 Height = 121 Caption = 'Recipe' TabOrder = 3 object Label17: TLabel Left = 108 Top = 20 Width = 52 Height = 14 Caption = '# Servings' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object PaintBox6: TPaintBox Left = 160 Top = 48 Width = 69 Height = 69 OnPaint = PaintBox6Paint end object Label18: TLabel Left = 112 Top = 36 Width = 29 Height = 14 Caption = 'Carbo' Font.Color = clLime Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label23: TLabel Left = 112 Top = 60 Width = 33 Height = 14 Caption = 'Protein' Font.Color = clAqua Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label24: TLabel Left = 112 Top = 84 Width = 15 Height = 14 Caption = 'Fat' Font.Color = clYellow Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object rcarbopercent: TLabel Left = 131 Top = 48 Width = 22 Height = 14 Alignment = taRightJustify Caption = '00%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object rproteinpercent: TLabel Left = 131 Top = 72 Width = 22 Height = 14 Alignment = taRightJustify Caption = '00%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object rfatpercent: TLabel Left = 131 Top = 96 Width = 22 Height = 14 Alignment = taRightJustify Caption = '00%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object recipeservings: TEdit Left = 162 Top = 17 Width = 36 Height = 24 AutoSize = False Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 3 ParentFont = False TabOrder = 0 Text = '1' OnChange = ServingcountChange end object Panel2: TPanel Left = 4 Top = 18 Width = 103 Height = 95 TabOrder = 1 object Label29: TLabel Left = 6 Top = 6 Width = 39 Height = 14 Caption = 'Calories' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label30: TLabel Left = 6 Top = 20 Width = 29 Height = 14 Caption = 'Carbo' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label31: TLabel Left = 6 Top = 34 Width = 33 Height = 14 Caption = 'Protein' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label32: TLabel Left = 6 Top = 48 Width = 15 Height = 14 Caption = 'Fat' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object rcal: TLabel Left = 79 Top = 6 Width = 6 Height = 14 Alignment = taRightJustify Caption = '0' Color = clBtnFace Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object rcarbo: TLabel Left = 79 Top = 20 Width = 6 Height = 14 Alignment = taRightJustify Caption = '0' Color = clBtnFace Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object rprotein: TLabel Left = 79 Top = 34 Width = 6 Height = 14 Alignment = taRightJustify Caption = '0' Color = clBtnFace Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Label36: TLabel Left = 6 Top = 62 Width = 35 Height = 14 Caption = 'Sodium' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label37: TLabel Left = 6 Top = 76 Width = 21 Height = 14 Caption = 'Chol' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object rfat: TLabel Left = 79 Top = 49 Width = 6 Height = 14 Alignment = taRightJustify Caption = '0' Color = clBtnFace Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object rna: TLabel Left = 79 Top = 63 Width = 6 Height = 14 Alignment = taRightJustify Caption = '0' Color = clBtnFace Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object rchol: TLabel Left = 79 Top = 77 Width = 6 Height = 14 Alignment = taRightJustify Caption = '0' Color = clBtnFace Font.Color = clBlue Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False end object Label63: TLabel Left = 87 Top = 20 Width = 6 Height = 14 Caption = 'g' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label64: TLabel Left = 87 Top = 34 Width = 6 Height = 14 Caption = 'g' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label65: TLabel Left = 87 Top = 48 Width = 6 Height = 14 Caption = 'g' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label66: TLabel Left = 87 Top = 62 Width = 14 Height = 14 Caption = 'mg' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label67: TLabel Left = 87 Top = 76 Width = 14 Height = 14 Caption = 'mg' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end end object UpDown2: TUpDown Left = 198 Top = 17 Width = 12 Height = 24 Associate = recipeservings Min = 1 Position = 1 TabOrder = 2 Wrap = False end end object rfiservings: TEdit Left = 226 Top = 89 Width = 36 Height = 24 AutoSize = False Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxLength = 3 ParentFont = False TabOrder = 4 Text = '1' OnChange = ServingcountChange end object UpDown3: TUpDown Left = 262 Top = 89 Width = 12 Height = 24 Associate = rfiservings Min = 1 Position = 1 TabOrder = 5 Wrap = False end end object TabSheet3: TTabSheet HelpContext = 11 Caption = 'Weight' object PaintBox3: TPaintBox Left = 232 Top = 8 Width = 377 Height = 337 Color = clBtnFace ParentColor = False OnPaint = PaintBox3Paint end object PaintBox7: TPaintBox Left = 288 Top = 16 Width = 321 Height = 289 Color = clWhite ParentColor = False end object StringGrid1: TStringGrid Left = 8 Top = 8 Width = 210 Height = 249 Hint = 'Enter weight data in grid' ColCount = 3 DefaultRowHeight = 20 FixedCols = 0 RowCount = 2 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goTabs] TabOrder = 0 OnSetEditText = StringGrid1SetEditText ColWidths = ( 76 64 64) end object Button1: TButton Left = 8 Top = 272 Width = 81 Height = 25 Caption = '&Create Plan' TabOrder = 1 OnClick = CreatePlan1Click end object Button2: TButton Left = 112 Top = 272 Width = 81 Height = 25 Caption = '&New Row' TabOrder = 2 OnClick = New1Click end object Button3: TButton Left = 112 Top = 304 Width = 81 Height = 25 Caption = '&Remove Row' TabOrder = 3 OnClick = Button3Click end end object TabSheet4: TTabSheet HelpContext = 3 Caption = 'RDA' object PaintBox4: TPaintBox Left = 32 Top = 40 Width = 225 Height = 225 OnPaint = PaintBox4Paint end object PaintBox5: TPaintBox Left = 368 Top = 40 Width = 225 Height = 225 OnPaint = PaintBox5Paint end object Label38: TLabel Left = 24 Top = 16 Width = 239 Height = 16 Caption = 'FDA Recommended Daily Allowances' Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label40: TLabel Left = 56 Top = 268 Width = 29 Height = 14 Caption = 'Carbo' Font.Color = clLime Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object FDACarbo: TLabel Left = 75 Top = 280 Width = 22 Height = 14 Alignment = taRightJustify Caption = '60%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label54: TLabel Left = 56 Top = 292 Width = 33 Height = 14 Caption = 'Protein' Font.Color = clAqua Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object FDAProtein: TLabel Left = 75 Top = 304 Width = 22 Height = 14 Alignment = taRightJustify Caption = '10%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label56: TLabel Left = 56 Top = 316 Width = 15 Height = 14 Caption = 'Fat' Font.Color = clYellow Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object FDAFat: TLabel Left = 75 Top = 328 Width = 22 Height = 14 Alignment = taRightJustify Caption = '30%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label58: TLabel Left = 512 Top = 268 Width = 29 Height = 14 Caption = 'Carbo' Font.Color = clLime Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object YourCarbo: TLabel Left = 531 Top = 280 Width = 22 Height = 14 Alignment = taRightJustify Caption = '00%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label60: TLabel Left = 512 Top = 292 Width = 33 Height = 14 Caption = 'Protein' Font.Color = clAqua Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object YourProtein: TLabel Left = 531 Top = 304 Width = 22 Height = 14 Alignment = taRightJustify Caption = '00%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label62: TLabel Left = 512 Top = 316 Width = 15 Height = 14 Caption = 'Fat' Font.Color = clYellow Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object YourFat: TLabel Left = 531 Top = 328 Width = 22 Height = 14 Alignment = taRightJustify Caption = '00%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label41: TLabel Left = 448 Top = 16 Width = 68 Height = 16 Caption = 'Your Menu' Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Meal: TLabel Left = 320 Top = 288 Width = 31 Height = 16 Caption = 'Meal' Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Day: TLabel Left = 320 Top = 304 Width = 24 Height = 16 Caption = 'Day' Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Comparison: TRadioGroup Left = 400 Top = 272 Width = 81 Height = 81 Caption = 'Selection' ItemIndex = 0 Items.Strings = ( 'Meal' 'Day' 'Week') TabOrder = 0 OnClick = ComparisonClick end end object TabSheet5: TTabSheet HelpContext = 25 Caption = 'Calculators' object GroupBox5: TGroupBox Left = 8 Top = 8 Width = 593 Height = 113 Caption = '1. Caloric Maintenance' TabOrder = 0 object Label33: TLabel Left = 8 Top = 24 Width = 91 Height = 16 Caption = 'Current Weight:' end object Label34: TLabel Left = 144 Top = 80 Width = 121 Height = 16 Caption = 'Caloric Requirement:' end object Label50: TLabel Left = 8 Top = 56 Width = 27 Height = 16 Caption = 'Age:' end object Label51: TLabel Left = 168 Top = 24 Width = 41 Height = 16 Caption = 'Height:' end object Label52: TLabel Left = 168 Top = 48 Width = 60 Height = 16 Caption = '(in inches)' end object CurrentWeight: TEdit Left = 104 Top = 24 Width = 41 Height = 24 TabOrder = 0 OnChange = CurrentWeightChange end object CalorieReq: TEdit Left = 280 Top = 80 Width = 49 Height = 24 TabStop = False Color = clInactiveBorder Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 3 end object ActivityLevel: TRadioGroup Left = 424 Top = 16 Width = 161 Height = 73 Caption = 'Activity Level' ItemIndex = 1 Items.Strings = ( 'Low/Sedentary' 'Moderate' 'Heavy') TabOrder = 5 OnClick = ActivityLevelClick end object Gender: TRadioGroup Left = 280 Top = 16 Width = 129 Height = 49 Caption = 'Gender' ItemIndex = 0 Items.Strings = ( 'Female' 'Male') TabOrder = 4 OnClick = GenderClick end object Age: TEdit Left = 56 Top = 56 Width = 41 Height = 24 TabOrder = 1 OnChange = AgeChange end object Height: TEdit Left = 216 Top = 24 Width = 41 Height = 24 TabOrder = 2 OnChange = HeightChange end end object GroupBox6: TGroupBox Left = 8 Top = 216 Width = 273 Height = 65 Caption = '3. Body Mass Index' TabOrder = 1 object Label42: TLabel Left = 16 Top = 24 Width = 56 Height = 16 Caption = 'BMI Now:' end object Label43: TLabel Left = 136 Top = 24 Width = 73 Height = 16 Caption = 'BMI at Goal:' end object BMINow: TEdit Left = 80 Top = 24 Width = 41 Height = 24 TabStop = False Color = clInactiveBorder Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object BMIGoal: TEdit Left = 216 Top = 24 Width = 41 Height = 24 TabStop = False Color = clInactiveBorder Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 end end object GroupBox7: TGroupBox Left = 8 Top = 136 Width = 593 Height = 65 Caption = '2. Weight Loss Goal' TabOrder = 2 object Label35: TLabel Left = 144 Top = 24 Width = 108 Height = 16 Caption = 'Diet Plan Calories:' end object Label39: TLabel Left = 320 Top = 24 Width = 91 Height = 16 Caption = 'Weeks to Goal:' end object Label53: TLabel Left = 8 Top = 24 Width = 76 Height = 16 Caption = 'Goal Weight:' end object PlanCalories: TEdit Left = 264 Top = 24 Width = 41 Height = 24 TabOrder = 1 OnChange = GoalWeightChange end object WeekstoGoal: TEdit Left = 416 Top = 24 Width = 41 Height = 24 TabStop = False Color = clInactiveBorder Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end object GoalWeight: TEdit Left = 88 Top = 24 Width = 41 Height = 24 TabOrder = 0 OnChange = GoalWeightChange end end object CreatePlan2: TButton Left = 384 Top = 240 Width = 81 Height = 25 Caption = '&Create Plan' TabOrder = 3 OnClick = CreatePlan2Click end end object TabSheet6: TTabSheet HelpContext = 26 Caption = 'Activity Planner' object Acrt: TLabel Left = 16 Top = 8 Width = 42 Height = 16 Caption = 'Activity' end object Label44: TLabel Left = 288 Top = 32 Width = 52 Height = 16 Caption = 'Duration:' end object Label45: TLabel Left = 288 Top = 80 Width = 96 Height = 16 Caption = 'Calories Burned:' end object ListBox3: TListBox Left = 16 Top = 32 Width = 241 Height = 289 HelpContext = 1 ItemHeight = 16 Sorted = True TabOrder = 0 OnClick = ListBox3Click end object Duration: TEdit Left = 392 Top = 32 Width = 49 Height = 24 TabOrder = 1 Text = '60' OnChange = DurationChange end object CaloriesBurned: TEdit Left = 392 Top = 80 Width = 49 Height = 24 TabStop = False Color = clInactiveBorder ReadOnly = True TabOrder = 2 end object GroupBox8: TGroupBox Left = 280 Top = 128 Width = 209 Height = 145 Caption = 'Calorie Balance' TabOrder = 3 object DayShowing: TLabel Left = 8 Top = 24 Width = 84 Height = 16 Caption = 'Day Showing' Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label47: TLabel Left = 8 Top = 48 Width = 87 Height = 16 Caption = 'Menu Calories:' end object Label48: TLabel Left = 8 Top = 80 Width = 97 Height = 16 Caption = 'Activity Calories:' end object Label49: TLabel Left = 8 Top = 112 Width = 95 Height = 16 Caption = 'Calorie Balance:' end object MenuCalories: TEdit Left = 112 Top = 48 Width = 49 Height = 24 Color = clInactiveBorder ReadOnly = True TabOrder = 0 end object actcalories: TEdit Left = 112 Top = 80 Width = 49 Height = 24 TabStop = False Color = clInactiveBorder ReadOnly = True TabOrder = 1 end object CalorieBalance: TEdit Left = 112 Top = 112 Width = 49 Height = 24 Color = clInactiveBorder ReadOnly = True TabOrder = 2 end end object UpDown4: TUpDown Left = 441 Top = 32 Width = 12 Height = 24 Associate = Duration Min = 0 Max = 120 Position = 60 TabOrder = 4 Wrap = False end end end object MainMenu1: TMainMenu Left = 535 Top = 4 object Main1: TMenuItem Caption = '&Main' ShortCut = 0 object MergeOtherFOODITEMDBT1: TMenuItem Caption = 'Mer&ge Other FOODITEM.DBT' ShortCut = 0 OnClick = MergeOtherFOODITEMDBT1Click end object N8: TMenuItem Caption = '-' ShortCut = 0 end object OrderForm1: TMenuItem Caption = '&Order Form' ShortCut = 0 OnClick = OrderForm1Click end object Register1: TMenuItem Caption = '&Register' ShortCut = 0 OnClick = Register1Click end object N7: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit' ShortCut = 0 OnClick = closeClick end end object FoodItem1: TMenuItem Caption = '&Food Item' ShortCut = 0 object Add1: TMenuItem Caption = '&Add Food Item' ShortCut = 0 OnClick = Add1Click end object Modify1: TMenuItem Caption = '&Modify Food Item' ShortCut = 0 OnClick = Modify1Click end object Delete1: TMenuItem Caption = '&Delete Food Item' ShortCut = 0 OnClick = Delete1Click end object N11: TMenuItem Caption = '-' ShortCut = 0 end object AddtoPersonalList1: TMenuItem Caption = 'Add &to Personal List' ShortCut = 0 OnClick = AddtoPersonalList1Click end object RemovefromPersonalList1: TMenuItem Caption = '&Remove from Personal List' Enabled = False ShortCut = 0 OnClick = RemovefromPersonalList1Click end object ShowPersonalList1: TMenuItem Caption = '&Show Personal List' ShortCut = 0 OnClick = ShowPersonalList1Click end object ClearWholePersonalList1: TMenuItem Caption = 'Clear Whole &Personal List' ShortCut = 0 OnClick = ClearWholePersonalList1Click end object N12: TMenuItem Caption = '-' ShortCut = 0 end object AddtoMeal1: TMenuItem Caption = 'Add to Mea&l' ShortCut = 0 OnClick = AddtoMeal1Click end end object Menu1: TMenuItem Caption = '&Menu' ShortCut = 0 object Load1: TMenuItem Caption = '&Load' ShortCut = 0 OnClick = loadmealClick end object SaveAs1: TMenuItem Caption = 'Save &As' ShortCut = 0 OnClick = SavemenuClick end object Clear1: TMenuItem Caption = '&Clear Meal' ShortCut = 0 OnClick = Clear1Click end object CopyMeal1: TMenuItem Caption = 'Copy &Meal' ShortCut = 0 OnClick = copymealClick end object PasteMeal1: TMenuItem Caption = '&Paste Meal' ShortCut = 0 OnClick = pastemealClick end object N4: TMenuItem Caption = '-' ShortCut = 0 end object ClearMenu1: TMenuItem Caption = 'Clear Men&u' ShortCut = 0 OnClick = ClearMenu1Click end end object Recipe1: TMenuItem Caption = '&Recipe' ShortCut = 0 object AddtoFoodItems1: TMenuItem Caption = '&Add to Food Items' ShortCut = 0 OnClick = AddtoFoodItems1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object LoadRecipe1: TMenuItem Caption = '&Load Recipe' ShortCut = 0 OnClick = LoadRecipe1Click end object SaveRecipe1: TMenuItem Caption = '&Save Recipe' ShortCut = 0 OnClick = SaveRecipe1Click end object N9: TMenuItem Caption = '-' ShortCut = 0 end object ClearRecipe1: TMenuItem Caption = '&Clear Recipe' ShortCut = 0 OnClick = ClearRecipe1Click end end object Weight1: TMenuItem Caption = '&Weight' ShortCut = 0 object CreatePlan1: TMenuItem Caption = '&Create Plan' ShortCut = 0 OnClick = CreatePlan1Click end object New1: TMenuItem Caption = '&New Row' ShortCut = 0 OnClick = New1Click end object LoadFile1: TMenuItem Caption = '&Load File' ShortCut = 0 OnClick = LoadFile1Click end object SaveFile1: TMenuItem Caption = '&Save File' ShortCut = 0 OnClick = SaveFile1Click end object ClearGrid1: TMenuItem Caption = 'C&lear Grid' ShortCut = 0 OnClick = ClearGrid1Click end end object Activity1: TMenuItem Caption = '&Activity' Enabled = False ShortCut = 0 object AddActivity1: TMenuItem Caption = '&Add Activity' ShortCut = 0 OnClick = AddActivity1Click end object DeleteActivity1: TMenuItem Caption = '&Delete Activity' ShortCut = 0 OnClick = DeleteActivity1Click end end object Print1: TMenuItem Caption = '&Print' ShortCut = 0 object PrintPreview1: TMenuItem Caption = 'Menu Print Pre&view' ShortCut = 0 OnClick = PrintPreview1Click end object ShoppingListPreview1: TMenuItem Caption = 'S&hopping List Preview' ShortCut = 0 OnClick = ShoppingListPreview1Click end object N5: TMenuItem Caption = '-' ShortCut = 0 end object PrintShopingList1: TMenuItem Caption = 'Print &Shopping List' ShortCut = 0 OnClick = PrintShopingList1Click end object PrintDay1: TMenuItem Caption = 'Print &Day' ShortCut = 0 OnClick = PrintDay1Click end object PrintMenu1: TMenuItem Caption = '&Print Menu' ShortCut = 0 OnClick = PrintMenu1Click end object PrintWeightGraph1: TMenuItem Caption = 'Print &Weight Graph' ShortCut = 0 OnClick = PrintWeightGraph1Click end object PrintRecipe1: TMenuItem Caption = 'Print &Recipe' ShortCut = 0 OnClick = PrintRecipe1Click end object N6: TMenuItem Caption = '-' ShortCut = 0 end object PrintSetup1: TMenuItem Caption = 'P&rint Setup' ShortCut = 0 OnClick = PrintSetup1Click end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object General1: TMenuItem Caption = '&General' ShortCut = 0 OnClick = General1Click end object DietingHints1: TMenuItem Caption = 'Dieting Hints' ShortCut = 0 OnClick = DietingHints1Click end object LowCalorie1: TMenuItem Caption = '&Low Calorie' ShortCut = 0 OnClick = LowCalorie1Click end object Diabetic1: TMenuItem Caption = '&Diabetic' ShortCut = 0 OnClick = Diabetic1Click end object LowSodium1: TMenuItem Caption = 'Low &Sodium' ShortCut = 0 OnClick = LowSodium1Click end object LowCholesterol1: TMenuItem Caption = 'Low &Cholesterol' ShortCut = 0 OnClick = LowCholesterol1Click end object FDAGuidelines1: TMenuItem Caption = '&RDA Guidelines' ShortCut = 0 OnClick = FDAGuidelines1Click end object N10: TMenuItem Caption = '-' ShortCut = 0 end object OnlineOrderForm1: TMenuItem Caption = 'Online Order &Form' ShortCut = 0 OnClick = OnlineOrderForm1Click end object SendEmail1: TMenuItem Caption = '&Send Email' ShortCut = 0 OnClick = SendEmail1Click end object OtherSoftware1: TMenuItem Caption = '&Other Software' ShortCut = 0 OnClick = OtherSoftware1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Tutor1: TMenuItem Caption = 'Tutor' ShortCut = 0 OnClick = Tutor1Click end object N3: TMenuItem Caption = '-' ShortCut = 0 end object About1: TMenuItem Caption = '&About' ShortCut = 0 OnClick = About1Click end end end object SaveDialog1: TSaveDialog FileEditStyle = fsEdit Options = [ofCreatePrompt] Left = 563 Top = 4 end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Left = 593 Top = 4 end object PrinterSetupDialog1: TPrinterSetupDialog Left = 493 Top = 4 end end